set     more off
set     matsize 800
clear   all
global  dpath = "[Userpath]\data and code"
cd "$dpath\results"


*Left
use "$dpath\data\pollution Falsified Timing.dta",clear

twoway (kdensity coef1), ///
xlabel(-0.08(0.04)0.08) ylabel(0(4)16,angle(0)) /// 
title("Wastewater Emissions", color(black)) xtitle("Coefficients on the DID term")  ytitle(Density) ///
legend(label( 1 "Kernel Density of Coefficients"))

graph save "Graph" "pollution Falsified Timing.gph",replace


*Middle
use "$dpath\data\deathrate Falsified Timing.dta",clear

twoway (kdensity coef1), ///
xlabel(-0.6(0.2)0.6) ylabel(0(0.5)2,angle(0)) /// 
title("Digestive Disease Death Rate", color(black)) xtitle("Coefficients on the DID term") ytitle(Density) ///
legend(label( 1 "Kernel Density of Coefficients(Right)"))

graph save "Graph" "deathrate Falsified Timing.gph",replace


*Right
use "$dpath\data\lifeexpectancy Falsified Timing.dta",clear

twoway (kdensity coef1 if coef1>-0.71), ///
xlabel(-0.6(0.2)0.6) ylabel(0(0.5)2,angle(0)) /// 
title("Life Expectancy at Birth", color(black)) xtitle("Coefficients on the DID term") ytitle(Density) ///
legend(label( 1 "Kernel Density of Coefficients(Right)"))

graph save "Graph" "lifeexpectancy Falsified Timing.gph",replace